home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUICtrlCreateIcon.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.1 KB  |  44 lines
  1. #include <GUIConstants.au3>
  2.  
  3. ;example1 ---------------------------
  4. GUICreate(" My GUI Icons")
  5.  
  6. $icon = GUICtrlCreateIcon ("shell32.dll",10, 20,20)
  7. $icon2 = GUICtrlCreateIcon ("explorer.icl",10, 20,80)
  8. $icon3 = GUICtrlCreateIcon ("explorer.icl",6, 80,80)
  9. $n1=GUICtrlCreateIcon (@windowsdir & "\cursors\horse.ani",-1, 20,120,32,32)
  10. $n2=GUICtrlCreateIcon ("shell32.dll",7 ,20,160,32,32)
  11. GUISetState ()
  12.  
  13. ; Run the GUI until the dialog is closed
  14. While 1
  15.     $msg = GUIGetMsg()
  16.     
  17.     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  18. Wend
  19.  
  20.  
  21.  
  22.  
  23. ; example2 ---------------------------
  24. Opt("GUICoordMode",1)
  25.  
  26. GUICreate("My GUI icon Race", 350,74,-1,-1)
  27. GUICtrlCreateLabel ("", 331,0,1,74,5)
  28. $n1=GUICtrlCreateIcon (@windowsdir & "\cursors\dinosaur.ani", -1, 0,0,32,32)
  29. $n2=GUICtrlCreateIcon ( @windowsdir & "\cursors\horse.ani", -1, 0,40,32,32)
  30.  
  31. GUISetState (@SW_SHOW)
  32.  
  33. Dim $a = 0, $b = 0
  34. While ($a < 300) And ($b < 300)
  35.   $a = $a + int(Random(0,1)+0.5)
  36.   $b = $b + int(Random(0,1)+0.5)
  37.   GUICtrlSetPos($n1, $a,0)
  38.   GUICtrlSetPos($n2, $b,40)
  39.   Sleep(20)
  40. WEnd
  41. sleep(1000)
  42.  
  43.  
  44.